(looking-at-p, string-match-p): New functions.

diff --git a/lisp/subr.el b/lisp/subr.el
index f890caf66e47606bfc02fc7e8713e91a38f4f846..3804624b0b94c9f575576d81e0da9e8f5c7a1743 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2668,6 +2668,18 @@ of a match for REGEXP."
            (looking-at (concat "\\(?:"  regexp "\\)\\'")))))
     (not (null pos))))
 
+(defsubst looking-at-p (regexp)
+  "\
+Same as `looking-at' except this function does not change the match data."
+  (let ((inhibit-changing-match-data t))
+    (looking-at regexp)))
+
+(defsubst string-match-p (regexp string &optional start)
+  "\
+Same as `string-match' except this function does not change the match data."
+  (let ((inhibit-changing-match-data t))
+    (string-match regexp string start)))
+
 (defun subregexp-context-p (regexp pos &optional start)
   "Return non-nil if POS is in a normal subregexp context in REGEXP.
 A subregexp context is one where a sub-regexp can appear.